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3 FACILITY: BOOTS 

: ABSTRACT: 

$ This module contains the bootstrap device driver for the 
3 RK06/7 disks. 

: ENVIRONMENT: IPL 31, kernel mode, code must be PIC 


; AUTHOR: Steve Beckhardt CREATION DATE: 11-Nov-1979 
(Original author: Carol Peters 


; MODIFIED BY: 


02-02 CASO0001. C.A. Samuelson 30-Apr-1980 
Change intertace to BOOTDRIVR for purge of UBA datapath 
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§ 4g ~SBTTL DECLARATIONS 
: INCLUDE FILES: 
80 1 
3p § SBTDDEF ; Boot device types 
0 4 SIODEF 3; 1/0 function codes 
Be 5 SPRODEF 3 Processor registers 
00 $ SRPBDEF 3; RPB offsets 
00 SSSDEF $ eeetue 109% 
00 8 SUBADEF : UBA defi 
3 23 SUBIDEF : 11/7 wea pu ee 
0000 «461; 
0000 6¢ : MACROS: 
0000 63; 
0000 40 64 
0000 65; 
0000 66 ; EQUATED SYMBOLS: 
0000 «67: 
0000 68: 
0000 69 ; RK611/RKO6 CONTROLLER REGISTER OFFSETS 
0000 70: 
0000 = 71 
0000 es SDEFINI RK 
0000-7 
0000 7% SDEF BLKw 1 sCONTROL STATUS REGISTER 1 
0002s 75 RVIELD RK cst 20. <- : CONTROL STATUS REGISTER 7 FIELD DEFINITION 
0002 76 : GO BIT 
000 77 <FcObE, ">, - : FUNCTION CODE 
0002 «= 78 <DPPE, .M>.- : DATA PATH PURGE ERROR 
000 79 <IE,,M>,- + INTERRUPT ENABLE 
000 80 <RDY, ,M>,= : CONTROLLER READY 
000 81 <MEX,2>,= : MEMORY EXTENSION BITS 
000 : <CDT,,M>,= : CONTROLLER DRIVE TYPE 
0002 —s« 8 <CTO, .M>,= : CONTROLLER TIME OUT 
0008 84 <CFMT. .M>,= : CONTROLLER FORMAT ERROR 
000 85 <sP R, <A>. : SERIAL Bus PARITY ERROR 
000 86 .M>,= : DRIVE INTERRUPT 
000 8 <cERRY A> : CONTROLLER ERROR 
000 8 > : 
0002 89 SDEF RK_wC .BLKW SWORD COUNT REGISTER 
0004 90 SDEF  RK“BA *BLKW 1 [BUFFER ADDRESS REGISTER 
9006 91 $DEF  RK™DA *BLKW TDESIRED SECTOR/TRACK ADDRESS REGISTER 
00 9 _VIELD RK_DA,0,<- : DESIRED ADDR ESS apdete DEFINITIONS 
0008 «= s« 9 <Sh.5 5>,- : DESIRED SECTOR ADDRESS 
0008 46-9 + RESERVED BIT 
0008 95 : a $>- : DESIRED TRACK ADDRESS 
0008 97 SDEF  RK_CS2 .BLKW [CONTROL STATUS REGISTER 2 
00A 98 _VIELD RK C§2.0,<- : CONTROL STATUS REGISTER 2 FIELD DEFINITION 
000A «= s«99. <DS,3>.- : DRIVE SELECT 
00A 100 <RLS, >, > RELEASE D 
O0A 101 <BAl : BUFFER ADDRESS INCREMENT INHIBIT 
OA 1 é in ae : SUBSYSTEM CLEA 
00A 1 <IR,,@>,- : INPUT READY 
000A 104 <OR,,M>,=- : OUTPUT READY 
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1 = RK06/7 BOOT DRIVER 15-SEP=1984 23:51:15 YAX/VMS po p | 
irae tt ha DECLARATIONS 278Eb=138 33 04:09 feoors sre DMBTDRIVR.MAR 
- ; UNIT FIELD ERROR 
, i 3 cMOS. > ce : MULTIPLE DRIVE SELECT 
ca-4 5 <PGE,.M>,- + PROGRAMMING ERROR 
A 108 <NEM, >. + NONEXISTENT MEMORY 
A 109 <NED,.M>.= + NONEXISTENT DRIVE 
A 11 UPE,,.M>,= : UNISUS PARITY E 
boa Wt <WCE,.M>,= : WRITE CHECK ERROR 
OOA 118 <DLT, /M>- : DATA LATE ERROR 
Sony 2 ; TATUS REGISTER 
ita 118 _— RVTeeD RK_DS,0 ie +O OR IVE STATUS REGISTER BIT DEFINTIONS 
Si oR i uae 
b0¢ 1 <OF St, .M>,- + DRIVE OFFSET 
iit 119 <ACLO, .M>,= t DRIVE AC LOW 
000C 120 <DCLO,.M>,- : DRIVE DC LOW 
000C 121 <DROT. .M>.- : DRIVE OFF TRACK 
oo00c 31 <VV,,M>,- 3; VOLUME VALID 
000¢ 1 ¢ <DROY, ,M>,- + DRIVE READY 
000C 124 <DDT, .M>,- DRIVE DRIVE TYPE 
boos i 3 a : DRIVE WRITE LOCKED 
itt i 5 $ie’-m,- : POSITIONING IN PROGRESS 
000C 129 <DSC,.M>,= : DRIVE STATUS CHANGE 
000¢ 130 <SVAL, ,M>= + DRIVE STATUS VALID 
Stat R TERROR REGISTER 
0008 138 er RVTELD RK aT es ; ERROR REGISTER B11 DEF INITIONS 
b00E i3¢ IE oes : SEEK INCOMPLE 
O00E 136 <NXF,,M>,= : NONEXECUTABLE FUNCTION 
Q000E 137 <DRPAR, ,M>,= : DRIVE PARITY 
QOO0E 138 <FMTE,.M>,- : FORMAT ERROR 
000E 13 <DTYE, .M>,= : DRIVE TYPE ERROR 
QOOOE 140 <ECH, ,M>,- ; ECC HARD ERR 
OO0E 141 <BSE,.M>.- : BAD SECTOR ERROR 
14 <HVRC, ,M>, = : HEADER VRC ERRO 
b00E 5 <COE, .M>,- : CYLINDER OVERFLOW ERROR 
iit \tz <IDAE..M>,- : INVALID DISK ADDRESS ERROR 
Bote (44g i pe : DRIVE TIMING ERROR 
iit 123 <OPL? “ho : OPERATION INCOMPLETE 
it 14 <UNS. .M>.= : DRIVE UNSAFE 
O00 129 <DCK, .M>= : DATA CHECK ERROR 
Bee (tae R : ARY/OFFSET REGISTER 
i 133 nso RVTeLD RK AS 0 = : :" ATTENTION SURRARY OF FSET REGISTER FIELDS 
. >,- + DRIVE OF 
8} 138 > fhe t RESERVED BIT : 
010 136 <ATIN,8,M>= ; DRIVE ATTENTION SUMMARY 
4 1 R : ADDRESS 
.BLKW SDESIRED CYLINDER 
AE a ne ce 
an 43 8, : :MAINTENANCE REGISTER 1 
ae 1st _— RVTELD RK MRI .O°cune,3>> : J INTENANEE REGISTER 1 FIELD DEFINITION 
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18 196 SDEF RK_EC1 -BLKW } sECC POSITION REGISTER 
1A 16 VIELD RK_EC1,0,<<EPS,13>> 3 ECC POSITION FIELD 
1A 164 SDEF i -BLKW sECC PATTERN REGISTER 

01C 165 VIEL RK_EC2,0,<<EPT,11>> ; ECC PATTERN FIELD 
> 3 $ SDEF Rk -BLKW SMAINTENANCE REGISTER 3 
3 19 SDEF RK~ “AR -BLKW 1 sMAINTENANCE REGISTER 

099 189 SDEFEND RK 

800171 

$00 17 3 

464 173 ; OWN STORAGE: 
0 174; 

44 175 

000 176 ; 

0000 177 ; Boot driver table entry 

$3838 

00 180 S$BOOT_DRIVER DEVTYPE = BIDSK_DM,- 3; Device type (DM) 

0000 181 SIZE = DM_DRVSIZ.- : Driver s 

0000 182 ADDR = DM_DRIVER,- : Driver address 

0000 183 DRIVRNAME = DMNAME ; Driver name 
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RKO6/7 Bootstrap driver code 4-SEP-1984 4:09 
09 } 5 -SBTTL RK06/7 Bootstrap driver code 
1 8 p++ 
0 1 8 3 
09 : 4 3 Inputs: 
8 191 ; R - base address of sdopter.s register space 
000 135 3 R - LBN FOR CURRENT PIECE OF TRANSFER 
000 1935; R = contains 
+4 194 ; Q - address of the device's CSR 
00 195 ; R8 - SIZE OF TRANSFER IN BYTES 
bpp 136 ; Ro - address of the RPB 
0 197 ; R10 - starting address of transfer (byte offset in first 
0000 198 ; page ORed with starting map register number) 
464 +4 3 R11 - LBN at start of transfer 
8308 01 ; FUNC(AP)= 1/0 operation (IOS_READLBLK or IO$_WRITELBLK only) 
B08 8 : BUF (AP) = Buffer address 
000 03 ; SIZECAP)= Size of transfer in bytes 
Bap be $ MODE(AP)= Address interpretation mode (0 = physical, 1 = virtual) 
0000 38 3; Implicit inputs: 
0000 07 ; 
464 4 3 RPBSW_UNIT - RPB field containing boot device unit number 
0000 10 ; Outputs: 
0000 11 3 
0000 \§ 3 RO - status code 
0000 13 ; 
0000 14 ; SS$_NORMAL - successful transfer 
0000 3 8 SS$_NOSUCHDEV = yreupsor ted device 
444 1g 3 SSS-CTRLERR - fatal controller error 
9464 18 5 R3 = must be preserved 
0000 20 ; This routine destroys R1, R2, R4, RS, Rb. Within the 
44 2e1 ; routine, register usage is as follows: 
0000 5 3 RO - mapping enabled flag 
0000 4; device unit number 
0000 > 3 status code 
000 § 3 R1 - device function code 
000 3 R2 - drive type according to device register 
B08 3 3 R4 - used in logical to physical calculation 
0 3 R5 - used in logical to physical calculation 
B88 0; R6 - used in logical to physical calculation 
00 1 3 transfer word count 
000 § 3 
0 fem te 
0004 0 4 BuF = 4 
0008 5 SIZE = 
000C 00 § LON = 1 
ot? FUNC = § 
14 $ MODE = 2 
it 29 DM_DRIVER: ; RKO6/7 device driver. 
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42 ; 
09 rk ; Translate the 1/0 function code into a device-dependent function 
0 44 ; code for this disk. 
09 $2 3 
ae § 47 10$ MOVL #17,R1 3; ASSUME READ 
20 10 A D1 88 $3 CMPL BUNE (AP) ,#108_WRITELBLK 3; CHECK FOR WRITE FUNCTION 
0 is 0 4 BNEQ 20$ 3 N REA 
51 13 OD a09¢ 30 MOVL #19,R1 : SET WRITE FUNCTION CODE 
00C 52: 
8 C 38 3; Clear controller and drive status. Confirm that the drive exists and 
¢C 4 ; is ready for a transfer. 
oboe $aG 
50 64 a9 3C st 3$ 208: MOVZWL RPBSW_UNIT(R9),RO ; GET UNIT NUMBER 
08 A? 20 80 01 58 MOVW  #RK CS2_M_SCLR.RK_CS2(R7) ; CLEAR CONTROLLER AND ALL DRIVES 
a 0 014 59 BSBW RE ; WAIT FOR CONTROLLER READY 
08 A7 5 B0 0018 ¢ MOVW RO,RK_CS2(R7) ; SET DRIVE NUMBER 
018 6¢ 30$: ; Clear drive and find type. 
67 05 60 Bale 6 MOVW #5,RK_CS1(R7) ; Clear drive. 
0088 30 OOTE 64 BSBW READY ; Wait for controller ready. 
52.4 O053 65 CLRL a 3 Assume RKO6 drive. 
OA A? 0100 oe Tt + 3 $6 ells #RK_DS_M_DDT,RK_DS(R7) ; js ectve Me ? 
3; No. Branch. 
52 0400 8F 3C¢ 0096 rt: MOVZWL #RK_CS1_M_CDT,R2 : Yes. Set drive code. 
0030 70 33$: 3 Check for existence of drive. 
08 A7 1000 8F ft Bags 4 pity #RK _CS2_M_NED,RK_CS2(R7); voes grsve euset 
; Yes. Branch. 
50 0908 8F 3C 0038 7 MOVZWL #SS$_NOSUCHDEV,RO ; No. Exit with error 
oA PY: Bee: 
O35€ 76 35$: 3; Clear drive and acknowledge. 
8000 8F B80 Baz 7 MOVW #RK_CS1_M_CERR,=- 3; Clear controller error 
67 004 78 RK_CSICR7Y 3 status. 
08 A? «#50 BO 004 79 MOVW RO,RK_CS2(R7) 3; Set unit number code again. 
67 52 05 AJ 004 80 BISW3 #5,R2,RK_CS1(R7) ; Clear drive. 
0058 30 0048 81 BSBW READY ; Wait for controller ready. 
OA A? 0080 8F B3 O004E 8 BITW #RK_DS_M_DRDY,RK_DS(R7) ; Is the drive ready? 
13 0054 | BEQL 3; No. Clear drive again. 
67 52 Ag bee : BISW3 #3,R2,RK_CS1(R7) 3 Actneuled ’ pack and set 
; volume valid. 
4D 10 OA bg BSBB READY 3 Wait for controller ready. 
bee 88 
05C 3 ; Compute the cylinder, track, and sector addresses. Load device 
bee 0 ; registers wit transfer parameters and start transfer. 
ose 59° 
56 4 005C 38 CLAL 6 : Clear rogiever for EDIV. 
in ae Opgo0gse ef 3 26 94 EDIV #223, R5,R4,R5 3; COMPUTE DESIRED CYLINDER 
10 A 4 8 6 95 MOVW R4.RK DC(R7S ; AND SET IN DEVICE 
56 55—(OSS 16 % EDIV #22 RS,R5,R6 ; CALCULATE DESIRED TRACK/SECTOR 
56 «(08 ~—s(OB 2 0 9 INSV R548, 88 Re : MERGE TRACK AND SECTOR 
06 A? +56 «680 007 98 MOVW = RO, RK_DACR?) ; SET DESIRED TRACK SECTOR 
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MOL 000 RKGos? Bootstrap driver code 2786621382 33:31:48 Yeoors Ske DMBTDRIVR.MAR; 1 . (§) 
04 A7 SA 8B 79 99 MOVW R10,RK_BA(R7) 3; SET STARTING BUFFER ADDRESS 
56 38 2 e8 7D 0 DIVL3 #2,R8,R6 + COMPUTE WORD COUNT 
02 A 6 aE | 1 MNEGW R6,RK_WC(R7) ; SET NUMBER OF WORDS TO TRANSFER 
67 =$2 aie 5 § BISWS R1,R2,RK_CS1(R7) 3; Start disk function. 
iE 10 oes ; BSBB. ss READY t WAIT FOR CONTROLLER READY 
088 03 g 
088 $ ; Transfer is complete. See whether the transfer completed without 
088 07 ; error. If not, prepare input registers for the ECC correction routine 
088 08 ; and branch to that routine. 
ae 
50 01 3C ints 11 MOVZWL #SS$_NORMAL,RO ; ASSUME NORMAL COMPLETION 
67 +85 33 \¢ TSTW RK_CS1(R7) ; CHECK COMPOSITE ERROR 
01 19 009 1 BLSS $ 3; CONTINUE IF NO ERROR 
05 941 14 RSB $ 
50 OC A7 4 009 15 50$: MOVW K_ER(R7),RO ; GET ERROR STATUS 
51 02 A? 2 0097 16 CVTWL RK_WC(R7),R1 3; GET NEGATED COUNT REMAINING 
51 O¢ C4 0098 17 MULL #2,R1 ; CONVERT TO BYTES 
55 18 A 3C OO9E 315 MOVZWL RK_EC1(R7),R5 3; GET POSITION OF ERROR 
56 1A A7 B° QOA2 19 MOV RK_EC2(R7) ,R6 3; GET PATTERN 
0008 1 Boag $9 BRW Ect ; AND ATTEMPT ECC CORRECTION 
QOA9 $$ g 
Boag $7 3; SUBROUTINE TO WAIT FOR CONTROLLER READY OR ERROR 
QOA9 25 
OOA9 326 READY: 3 
67 8080 8F B3 O0A9 327 BITwW #*xX8080, (R7) ; CONTROLLER READY OR ERROR? 
F9 13 OOAE 328 BEQL READY ;IF EQL NO 
05 0080 329 RSB : 
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pet 1 -SBTTL ECC = PERFORM ECC ERROR CORRECTION 
0081 : p++ 
081 4; 
ited 2 3 Functional description: 
Boe! $ ATTEMPT ECC ERROR CORRECTION 
0081 9 ; INPUTS: 
0081 40 ; 
0081 41; RO = RK_ER/RP_ER1_ ERROR STATUS REGISTER 
tet rt: 2 R1 - NEGATIVE BYTE COUNT REMAINING 
0B1 43 ; RS - ECC POSITION 
0081 44; R6 - ECC PATTERN 
0081 45 ; R8 - BYTE COUNT REMAINING AT START OF LAST TRANSFER 
0081 46; R10 - starting address of transfer 
69 t g R11 - BLOCK NUMBER AT START OF TRANSFER 
0081 49 ; Outputs: 
00B1 50 ; 
0081 $2) -- 
$081 2g ECC ATTEMPT ECC CORRECTION 
0081 54 
0081 33 8 
sie} 3 ; Don't attempt an ECC correction if any of the following conditions apply: 
0081 58 ; the error was not a data check 
0081 59; the error was a hard ECC error 
0081 60 ; the transfer mode does not match the map-enabled position, i.e., 
0081 61; transfer is virtual; and mapping is not enabled, or v.v. 
0081 306 3 no bytes have been transferred yet 
i a , 
58 50 OF €1 6081 365 BBC #RK_ER_V_DCK,RO,RETRY ; NOT DATA CHECK, RETRY 
57 50 06 EO 0085 66 BBS #RK_ER_V_ECH,RO,RETRY 3; HARD ECC ERROR, RETRY 
50 38 DB 0089 367 MFPR #PRS_MAPEN,RO : GET MAP ENABLE STATE 
14 AC 50 D1 OOBC 68 CMPL RO, MODE (APS 3; SAME AS 1/0 MOD 
4E 12 00CO 369 BNEQ RETRY ; NO, CANT DO SIMPLE ECC 
51 58 co Bote 70 ADDL R8,R1 3; COMPUTE BYTES TRANSFERRED 
49 «13 =«(00C 71 BEQL RETRY ; NONE, RETRY 
00C7 6 
00C7 73; 
Oot fe ; Appears to be a correctable data check. Attempt the correction. 
0c? 376° 
50 51 +7 8F 78 4 77 ASHL #-9,R1,R0 3; CONVERT TO PAGE COUNT 
58 450 CO 00cCc 28 ADDL = RO, R11 : UPDATE BLOCK NUMBER 
5A 2} C OCF 7 ADDL R1,R10 ; UPDATE BYTE spe BS 
58 3 = Boe 80 SUBL R1,R8 ; DECREASE BYTES REMAINING 
55 (OD 30 + DECL R5 3; MAKE POSITION 1 ORIGIN 
50 0200 C8 3 00D7 § MOVA 512(R8) RO 3; REMAINING BYTES AT START OF BAD SECTOR 
i a he ODC 8 SUBL RO, SIZECAP) ,R2 ; BYTES TRANSFERRED AT START OF ERROR SECTOR 
50 98 C4 €1 4 ULL #8,R ; CONVERT BYTE COUNT TO BIT COUNT 
50 7 E4 5 SUBL R5,R 3; COMPUTE CORRECTION FIELD WIDTH 
19 «#1 €7 6 BLEQ 206 : BR IF NO CORRECTION NEEDED 
0D 50 01 O0E9 7? CMPL RO,#RK_EC1_S_EPS ; MINIMUM OF 13 AND BUFFER REMAINING 
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v04-0 ECC = PERFORM ECC ERROR CORRECTION 4-SEP-1984 04:09 (CBOOTS.SRCJDMBTDRIVR.MAR; 1 
0 op 3 gee 89 it ye C1_S_EPS,RO ; KOAIT PIC D TO Re ECT S_EPS BITS 
51 06 BC42 26 : EF OFT 0 10$ EXTZV Re RO aBUF CAPS (R2],R1 : GET FIELD TO BE CORRECTED 
1 6 ff OF8 91 XORL R6,R1 3; APPLY CORRECTION CODE 
04 BC42 50 5 1 F 19 35 INSV R1,R5,R0,aBUF (AP) CR2] ; AND STORE IN BUFFER 
1 94; 
19 56 ; If the transfer is not complete, branch back to retry it. 
19 97 * 
58 05 61 98 20S: TSTL R8 3; CHECK FOR COUNT REMAINING 
96 15 B19 99 BLEQ 30$ 3 NONE, 
55 B Bo 1 $ 400 MOVL R11,R5 3; GET WORKING COPY OF LBN 
FEF4 1 010 401 BRwW DM_ORIVER ; CONTINUE TRANSFER 
010C 108 
010C 403; ; 
010C 404 ; Transfer is complete. Return with success status code. 
Bist ite 
50 01 3c )6010C 407 30$: MOVZWL #SS$_NORMAL ,RO ; SET COMPLETION CODE 
0S O10F 408 RSB 3; AND RETURN 
0110 409 
0110 410 ; 
0110 411 ; No ECC correction was possible. Return and retry. 
0110 oi6 3 
0110 41 
0110 414 RET 
50 0054 8F 3C 0110 415 MOVZWL 9 #SS$_CTRLERR,RO ; Set failure status 
05 Bite “13 RSB ; Return to BOOTDRIVR 
58 45 2E 52 45 56 49 52 44 4D 44 PF" b188 418 DMNAME: .ASCIC /DMDRIVER.EXE/ ; Driver filename 
OC 0116 
8153 419 
00000123 012 $59 DM_DRVSIZ=.-DM_DRIVER 
OSs 421 
0123 422 .END 
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STABLE = 
BTDSK_DM = 
BUF = 
DMNAME 


DM_DRIVER 
DM-DRVSIZ . 
ect 


02 


03 


03 


Oooo 


PW On DMO" G0oo 


FOLAOOWDOOCSCLMOVOWDE OOO" WOO FO 
a> DD 


FUNC 
10$_WRITELBLK 
LBN 


MODE 
PRS 
REA 


MAPEN 
EABY 


zw 
oo 
WW 


om mo 
» 
po) 
“uw 


DD 
x 
m 
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PSECT name Allocation PSECT No. Attributes 
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! Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 
Initializati :00:00.10 0:00:00.37 
fonnend processing HY 09:00:00.4 0:00: 9-38 
Pass 1 36 00:00:12.13 0: 4 4.87 
Symbol table sort a3 00:00:09: 98 0: $: 3°86 
Suabot table output 8:80; 6:68 80: §:85:36 
Psect synopsis output 3 00:00:00.0 00:00:00.02 
Cross-reference output ba ie Be ges 
Assembler run totals 636 00:00:17.24 00:00:34.99 


The working set Limit was 1650 pages. 

68937 bytes (135 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1262 non-local and 9 local symbols. 
422 source Lines were read in Pass 1, producing 14 object records in Pass 2 

18 pages of virtual memory were used to define 16 macros. 
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Macro Library name Macros defined 
_8255SDUA28: [BOOTS. OBJJBOOTS.MLB;1 1 
~$255$DUA28: CSYS.OBJJLIB.MLB; 1 4 
“$255$DUA28: Eeysi IBISTARLET. MLB:2 7 

TOTALS (all Libraries) 12 


1246 GETS were required to define 12 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:DMBTDRIVR/OBJ=0BJ$:DMBTDRIVR MSRC$:DMBTDRIVR/UPDATE=(ENH$:DMBTDRIVR) +EXECML$/LIB+LIB$:BOOTS.MLB/LIB 
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